home *** CD-ROM | disk | FTP | other *** search
/ CGI How-To / CGI HOW-TO.iso / chap8 / 8_6 / process.cgi < prev    next >
Encoding:
Text File  |  1996-06-15  |  793 b   |  36 lines
  1. #!/usr/local/bin/perl
  2.  
  3.  
  4.   print "Content-type: text/html\n\n";
  5.  
  6. unshift (@INC, "/usr/local/etc/httpd/cgi-bin/Library");
  7. require "cgi-lib.pl";
  8. &ReadParse(*MYDATA);
  9.  
  10.  
  11.   print "<HTML><HEAD><TITLE>Voting Response</TITLE></HEAD><BODY>";
  12.   print "<CENTER><H2>Voting Response</H2></CENTER>";
  13.   print "Thanks for taking the time to vote.  Your vote is being
  14.          processed now!";
  15.  
  16.  
  17.   $filename = "$MYDATA{'lname'}-$MYDATA{'fname'}.registration";
  18.   open (FILE, ">>$filename");
  19.   print FILE "District 1: $MYDATA{'district_1'}\n";
  20.   print FILE "District 2: $MYDATA{'district_2'}";
  21.   close (FILE);
  22.  
  23.  
  24.  
  25. $filename =~ s/;//g;
  26. $filename =~ s/\*//g;
  27. $filename =~ s/\\//g;
  28. $filename =~ s/\///g;
  29.  
  30.   system ("mail selena\@eff.org < $filename");
  31.  
  32.  
  33.   unlink ("$MYDATA{'lname'}-$MYDATA{'fname'}.registration");
  34.  
  35.  
  36.